' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub AxG2antt1_KeyDownEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_KeyDownEvent) Handles AxG2antt1.KeyDownEvent
	With AxG2antt1
		.RemoveSelection()
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.SelBackColor = RGB(240,240,240)
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
		.SelectItem(h) = True
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
		.SelectItem(h) = True
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
	End With
	.EndUpdate()
End With

Dim back,fore
With AxG2antt1
	.BeginUpdate()
	back = 65536
	fore = 16777215
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b" & _
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA")
	.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C" & _
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" & _
"bbuaaXLhGCYBgIA==")
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Bump
	.BackColor = back
	.BackColorHeader = back
	.BackColorLevelHeader = back
	.BackColorSortBar = back
	.BackColorSortBarCaption = back
	.FilterBarBackColor = back
	.FilterBarForeColor = fore
	.ForeColor = fore
	.ForeColorHeader = fore
	.ForeColorSortBar = fore
	.SelBackColor = fore
	.SelForeColor = back
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSplitBar,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,50331648)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipBackColor,back)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipForeColor,fore)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelBackColorFilter,fore)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelForeColorFilter,back)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exBackColorFilter,back)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exForeColorFilter,fore)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSortBarLinkColor,back)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCSplitBar,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSplitBar,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exTreeLinesColor,fore)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exScrollSizeGrip,back)
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	With .Chart
		.BackColor = back
		.BackColorLevelHeader = back
		.ForeColor = fore
		.ForeColorLevelHeader = fore
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = False
	.LoadXML("http://www.exontrol.net/testing.xml")
	.Font.Size = 22
	.HeaderHeight = 42
	.DefaultItemHeight = 36
	.Items.ItemHeight(0) = AxG2antt1.DefaultItemHeight
	.Chart.UnitWidth = AxG2antt1.DefaultItemHeight
	.Chart.UnitScale = AxG2antt1.Chart.UnitScale
	.Chart.Bars.Item("Task").Height = 18
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.ItemBold(e.item) = True
			.AddBar(e.item,.CellValue(e.item,.GroupItem(e.item)),#12/2/2017#,#12/2/2017#)
			.DefineSummaryBars(e.item,"",-3,"")
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCQBQAWCQ1DAJIqjOAkEhiGCUQClYYZBjWG4dQLOEYTN" & _
"C8WwHCIZBpEWgKChGKAlSANMjTZLkdR1ECmIhoSg4coKMoERBJco1BDdOQGAyEQShEC4fgmVwAP7aNoWVC1JynM6XaKmGbJAA6CZgQKGFh2LAdTzSf61cAtWpaUjmRZa" & _
"YSAFDxpiCYpfQjdUB2JDVfTVP6LbawS4KZgOR5eRboETYeAFcSZGrNMKEXLLSyudKRRreWQaPpGCZTRSUdZxSrbBhvEqlbRNMhwSBEEigNIxToOU4jFgeCROQwQRK9BB" & _
"oG0CQUEIdhAAyJJvjUeZdmmb5+C8HhiAeZJznoPQ+EgT4rlua4BjCfg+k8d5TkUCZ4w+fxfB+X5xn4fheGebZoH8X53koAR9CASAWAUfofjgJgKH+IJHnGcIDmER5iBE" & _
"eZgmgVgLgGYYYGoFRTCGaIGAYRYiCiFgmgmYQEF4KIKmKSBRBqCxjAiRgvgwYxIiGQYNmOCJlDUOpeAQBCAg=")
		.Add(2,"CP:1 -6 0 6 0")
	End With
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 342
		.Bars.Add("S1").Color = &H1000000
		.Bars.Add("S2").Color = &H2ff0000
	End With
	With .Columns
		.Add("C1")
		.Add("C2").AllowSort = False
	End With
	.SingleSort = False
	.AllowGroupBy = True
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	With .Items
		.CellValue(.AddItem("S1"),1) = "SubItem A.1"
		.CellValue(.AddItem("S1"),1) = "SubItem A.1"
		.CellValue(.AddItem("S2"),1) = "SubItem B.1"
		.CellValue(.AddItem("S2"),1) = "SubItem B.1"
	End With
	.Layout = "MultipleSort = ""C0:2"""
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
		.Add(2,"CP:1 -4 0 0 0")
	End With
	.GetOcx().SelBackColor = &H2000000
	.SelForeColor = RGB(0,0,1)
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.CellValue(.AddItem("Cell 1"),1) = "Cell 2"
		.CellValue(.AddItem("Cell 3"),1) = "Cell 4"
	End With
	.Items.SelectPos = 1
	.SelectColumnIndex = 1
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,1)
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.CellValue(.AddItem("Cell 1"),1) = "Cell 2"
		.CellValue(.AddItem("Cell 3"),1) = "Cell 4"
		.SelectPos = 1
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.CellValue(.AddItem("Cell 1"),1) = "Cell 2"
		h = .AddItem("Cell 2")
		.CellValue(h,1) = "Cell 3"
		.CellBackColor(h,1) = &H1000000
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub AxG2antt1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddColumnEvent) Handles AxG2antt1.AddColumn
	' Column.Def(17) = 1
End Sub

' FilterChange event - Occurs when the filter was changed.
Private Sub AxG2antt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChange
	Dim format
	With AxG2antt1
		format = .FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
		.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
		.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
		.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
	End With
	.FilterBarPromptPattern = "1"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXG2ANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub AxG2antt1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddColumnEvent) Handles AxG2antt1.AddColumn
	With AxG2antt1
		With e.column
		End With
	End With
End Sub

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.ItemDivider(e.item) = -1
			.ItemBackColor(e.item) = AxG2antt1.BackColorSortBar
			.ItemHeight(e.item) = AxG2antt1.HeaderHeight
			.CellMerge(e.item,0) = "1,2,3,4,5,7,8,9,10,11,12"
			.CellValue(e.item,13) = "count(current,rec,1)"
			.CellValueFormat(e.item,13) = EXG2ANTTLib.ValueFormatEnum.exTotalField Or EXG2ANTTLib.ValueFormatEnum.exHTML
			.CellValue(e.item,0) = .CellCaption(e.item,.GroupItem(e.item))
			.FormatCell(e.item,0) = "`<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 +  `)`"
			.CellValue(e.item,6) = "sum(current,all,dbl(%6))"
			.CellValueFormat(e.item,6) = EXG2ANTTLib.ValueFormatEnum.exTotalField Or EXG2ANTTLib.ValueFormatEnum.exHTML
			.CellForeColor(e.item,6) = RGB(102,102,102)
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim hL,rs
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.BackColorSortBar = RGB(240,240,240)
	.AutoDrag = EXG2ANTTLib.AutoDragEnum.exAutoDragScroll
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.HeaderHeight = 24
	With .Columns
		.Add("Count").Visible = False
		With .Item("Freight")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellBackColor) = AxG2antt1.BackColorSortBar
			.Def(EXG2ANTTLib.DefColumnEnum.exHeaderBackColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellBackColor)
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingRight) = 4
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 4
			.HeaderBold = True
			.AllowGroupBy = False
			.FormatColumn = "value format ``"
			.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
		End With
		With .Item(0)
			.AllowGroupBy = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		End With
		.Item("ShipCountry").SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	End With
	.ScrollBySingleLine = False
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 1
		hL = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)
		.ItemHeight(hL) = 24
		.ItemBold(hL) = True
		.ItemBackColor(hL) = AxG2antt1.BackColorSortBar
		.CellValue(hL,6) = "sum(all,rec,dbl(%6))"
		.CellValueFormat(hL,6) = EXG2ANTTLib.ValueFormatEnum.exTotalField Or EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(hL,6) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.FormatCell(hL,6) = "value format ``"
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.ItemDividerLine(e.item) = EXG2ANTTLib.DividerLineEnum.EmptyLine
			.FormatCell(e.item,.GroupItem(e.item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(e.item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Min") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Max") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Sum") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.ItemBackColor(e.item) = RGB(240,240,240)
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim hL,rs,var_Column,var_Column1
With AxG2antt1
	.BeginUpdate()
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exNoLine
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
	.ColumnsFloatBarSortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.ColumnAutoResize = False
	.BackColorSortBar = RGB(240,240,240)
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	With .Columns
		With .Add("Min")
			.Visible = False
			.AllowDragging = False
		End With
		var_Column = .Add("Max")
		With var_Column
			.Visible = False
			.Visible = False
			.AllowDragging = False
		End With
		var_Column1 = .Add("Sum")
		With var_Column1
			.Visible = False
			.Visible = False
			.AllowDragging = False
		End With
	End With
	With .Columns.Item("Freight")
		.FormatColumn = "currency(value)"
		.Def(EXG2ANTTLib.DefColumnEnum.exCellBackColor) = 12895487
		.Def(EXG2ANTTLib.DefColumnEnum.exHeaderBackColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellBackColor)
		.HeaderBold = True
		.AllowGroupBy = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
	End With
	.ScrollBySingleLine = False
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 2
		hL = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)
		.ItemDivider(hL) = 0
		.ItemHeight(hL) = 3
		.ItemDividerLineAlignment(hL) = EXG2ANTTLib.DividerAlignmentEnum.DividerTop
		.ItemDividerLine(hL) = EXG2ANTTLib.DividerLineEnum.DoubleLine
		hL = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,1)
		.CellValue(hL,6) = "sum(all,rec,dbl(%6))"
		.CellValueFormat(hL,6) = EXG2ANTTLib.ValueFormatEnum.exTotalField
		.ItemHeight(hL) = 24
		.ItemBold(hL) = True
	End With
	.Columns.Item("EmployeeID").SortOrder = True
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.ItemDividerLine(e.item) = EXG2ANTTLib.DividerLineEnum.EmptyLine
			.FormatCell(e.item,.GroupItem(e.item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(e.item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Min") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Max") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Sum") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.ItemBackColor(e.item) = RGB(240,240,240)
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim hL,rs
With AxG2antt1
	.BeginUpdate()
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	.BackColorSortBar = RGB(240,240,240)
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns
		.Add("Min").Visible = False
		.Add("Max").Visible = False
		.Add("Sum").Visible = False
	End With
	With .Columns.Item("Freight")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellBackColor) = 12895487
		.Def(EXG2ANTTLib.DefColumnEnum.exHeaderBackColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellBackColor)
		.HeaderBold = True
		.AllowGroupBy = False
	End With
	.ScrollBySingleLine = False
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 1
		hL = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)
		.ItemDivider(hL) = 0
		.ItemHeight(hL) = 24
		.ItemDividerLineAlignment(hL) = EXG2ANTTLib.DividerAlignmentEnum.DividerTop
		.ItemDividerLine(hL) = EXG2ANTTLib.DividerLineEnum.DoubleLine
		.CellValue(hL,0) = "sum(all,rec,dbl(%6))"
		.CellValueFormat(hL,0) = EXG2ANTTLib.ValueFormatEnum.exTotalField Or EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(hL,0) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.FormatCell(hL,0) = "'Freight: <bgcolor=FFC4C4> '+(value format ``) + ` `"
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
	.ColumnsFloatBarSortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.EndUpdate()
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub AxG2antt1_LayoutChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.LayoutChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub AxG2antt1_Sort(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.Sort
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim rs
With AxG2antt1
	.BeginUpdate()
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	With .Columns.Add("Position")
		.FormatColumn = "1 apos ''"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C13 mod 4) = 0").BackColor = RGB(240,240,240)
	.EndUpdate()
End With

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub AxG2antt1_LayoutChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.LayoutChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim rs
With AxG2antt1
	.BeginUpdate()
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns.Add("Position")
		.FormatColumn = "(0:= (1 rpos '')) left ( ( 1:= ( =:0 lfind `.` ) ) != -1 ? =:1 : len(=:0))"
		.Visible = False
	End With
	.ConditionalFormats.Add("(%C13 mod 2) != 0").BackColor = RGB(240,240,240)
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.ItemDivider(e.item) = -1
			.EnableItem(e.item) = False
			.CellValueFormat(e.item,AxG2antt1.TreeColumnIndex) = EXG2ANTTLib.ValueFormatEnum.exHTML
			.FormatCell(e.item,AxG2antt1.TreeColumnIndex) = "%1"
			.CellValueFormat(e.item,"Freight") = EXG2ANTTLib.ValueFormatEnum.exTotalField Or EXG2ANTTLib.ValueFormatEnum.exHTML
			.CellValue(e.item,"Freight") = "sum(current,dir,%6)"
			.FormatCell(e.item,"Freight") = "`<b>` + currency(value)"
		End With
	End With
End Sub

Dim rs
With AxG2antt1
	.BeginUpdate()
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.BackColorSortBar = RGB(240,240,240)
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
	.Columns.Item("ShipVia").DisplayFilterButton = True
	.EndUpdate()
End With

Dim h,rs
With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.AllowGroupBy = True
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.Columns.Item(5).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.Columns.Item(6).FormatColumn = "currency(value)"
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0)
		.ItemBackColor(h) = RGB(240,240,240)
		.CellBackColor(h,6) = RGB(190,190,190)
		.CellValue(h,6) = "sum(all,rec,%6)"
		.CellValueFormat(h,6) = EXG2ANTTLib.ValueFormatEnum.exTotalField
	End With
	.Refresh()
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,h1
With AxG2antt1
	.BeginUpdate()
	.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderHidden
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
		.Add("Value").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
	End With
	With .Items
		h = .AddItem("Items")
		.CellValue(h,2) = "sum(current,dir,dbl(%1)*dbl(%2))"
		.CellValueFormat(h,2) = EXG2ANTTLib.ValueFormatEnum.exTotalField
		.FormatCell(h,2) = "`Total: `+ value"
		.CellHAlignment(h,2) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.CellBold(h,2) = True
		.CellEditorVisible(h,2) = EXG2ANTTLib.EditorVisibleEnum.exEditorHidden
		.CellEditorVisible(h,1) = EXG2ANTTLib.EditorVisibleEnum.exEditorHidden
		h1 = .InsertItem(h,Nothing,"Item 1")
		.CellValue(h1,1) = 10
		.CellValue(h1,2) = 3
		h1 = .InsertItem(h,Nothing,"Item 2")
		.CellValue(h1,1) = 20
		.CellValue(h1,2) = 4
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.FormatCell(e.item,.GroupItem(e.item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(e.item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Min") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Max") = EXG2ANTTLib.ValueFormatEnum.exTotalField
			.CellValue(e.item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(e.item,"Sum") = EXG2ANTTLib.ValueFormatEnum.exTotalField
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim rs
With AxG2antt1
	.BeginUpdate()
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exNoLine
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.SingleSort = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Item(1).SortOrder = True
	With .Columns
		.Add("Min").Visible = False
		.Add("Max").Visible = False
		.Add("Sum").Visible = False
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderHidden
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
		.Add("Sum").Visible = False
		.Add("Min").Visible = False
		.Add("Max").Visible = False
	End With
	With .Items
		h = .AddItem("Items")
		.CellMerge(h,0) = 1
		.FormatCell(h,0) = "`Items, <b>sum(` + %2 + `), min(` + %3 + `), max(` + %4 + `)</b>`"
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellValue(h,2) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,2) = EXG2ANTTLib.ValueFormatEnum.exTotalField
		.CellValue(h,3) = "min(current,dir,dbl(%1))"
		.CellValueFormat(h,3) = EXG2ANTTLib.ValueFormatEnum.exTotalField
		.CellValue(h,4) = "max(current,dir,dbl(%1))"
		.CellValueFormat(h,4) = EXG2ANTTLib.ValueFormatEnum.exTotalField
		.CellValue(.InsertItem(h,Nothing,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exNoSort
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 13
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderHidden
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items")
		.Add("Quantity").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
	End With
	With .Items
		h = .AddItem("Items")
		.CellValue(h,1) = "sum(current,dir,dbl(%1))"
		.CellValueFormat(h,1) = EXG2ANTTLib.ValueFormatEnum.exTotalField
		.FormatCell(h,1) = "`Total: `+ value"
		.CellValue(.InsertItem(h,Nothing,"Item 1"),1) = 10
		.CellValue(.InsertItem(h,Nothing,"Item 2"),1) = 20
		.CellValue(.InsertItem(h,Nothing,"Item 3"),1) = 30
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("A").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
	.Columns.Add("B").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
	.Columns.Add("A+B")
	With .Items
		h = .AddItem(10)
		.CellValue(h,1) = 20
		.CellValueFormat(h,2) = EXG2ANTTLib.ValueFormatEnum.exComputedField
		.CellValue(h,2) = "currency(dbl(%0)+dbl(%1))"
		Debug.Print( "CellCaption returns " )
		Debug.Print( .CellCaption(h,2) )
		Debug.Print( "CellValue returns " )
		Debug.Print( .CellValue(h,2) )
		Debug.Print( "ComputeValue returns " )
		Debug.Print( .ComputeValue("dbl(%0)+dbl(%1)",h,0,.CellValueFormat(h,2)) )
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("A")
	.Columns.Add("B")
	With .Items
		h = .AddItem(10)
		.CellValue(h,1) = 20
		Debug.Print( "A+B is " )
		Debug.Print( .ComputeValue("dbl(%0)+dbl(%1)",h,0,2) )
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("")
	With .Items
		h = .AddItem("<b>bold</b>")
		Debug.Print( .ComputeValue(.CellValue(h,0),h,0,1) )
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.ItemDividerLine(e.item) = EXG2ANTTLib.DividerLineEnum.EmptyLine
			.AddBar(e.item,"Summary",#12/2/2017#,#12/2/2017#)
			.DefineSummaryBars(e.item,"",-3,"")
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKMIziaQJiYLBIaRgEUTRXASCQxDBKQBSeKkRRtDaOYDnGQYD" & _
"iCIouQLEIxDKItBSJCKURJkAZZHjeToSR5PMb0dKdAw5I6raShEaaIiqJIXP7Fc7QSA0EgTBIFajgOpQAb+bptW7FVDULTMQS5FCZKasOA7FgOZ4DWjUVpwTZ1Q4LC65" & _
"bjuaraawKbYbXrFYJQSA8EwjNjDcLuKqcKpvDJsSJIFKxOB2KYtBLMLbzLR5apjLZ0QLSOKRDoMEgRDYGdKjLScGrGao8ABtcBlAZJRjoOo5DJgeCQapUQhNczGQzQSI" & _
"iBOJZAFSQwRHcJhGh2BZvngMIeA8H4TksA5ylgZBeg8X4GmGX4nniPazneQ5VnKdp9H8P4vD+X57nMRofmgBZ4FgIAoBWdoBGAGAeAgfxfjgNZ1DqWxEA0ASAgA==")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
		With .Bars.Item("Summary")
			.Color = &H1000000
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%513%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaptionHOffset) = 8
		End With
		With .Bars.Item("Task")
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
			.Color = RGB(0,0,0)
		End With
	End With
	With .Columns
		.Add("C1")
		.Add("C2")
		With .Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowGroupBy = False
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
	End With
	.SortBarVisible = True
	.AllowGroupBy = True
	.BackColorSortBar = .BackColor
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Items
		.CellValue(.AddItem("Item A"),1) = "SubItem A.1"
		.CellValue(.AddItem("Item A"),1) = "SubItem A.2"
		.CellValue(.AddItem("Item A"),1) = "SubItem A.3"
		.CellValue(.AddItem("Item A"),1) = "SubItem A.4"
		.CellValue(.AddItem("Item B"),1) = "SubItem B.1"
		.CellValue(.AddItem("Item B"),1) = "SubItem B.2"
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Font.Size = 12
	.DefaultItemHeight = 24
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		With .Bars.Item("Task")
			.Height = 21
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternDiagCross
		End With
		.PaneWidth(False) = 128
		.UnitWidth = 24
	End With
	With .Items
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "to do"
		h = .AddItem("bgcolor")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<bgcolor=FFFFFF> to do </bgcolor>"
		h = .AddItem("fgcolor")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor=FFFFFF> to do </fgcolor>"
		h = .AddItem("sha")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<sha FFFFFF;2;2> to do </sha>"
		h = .AddItem("out")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<out 000000><fgcolor=FFFFFF>to do</fgcolor></out></font>"
		h = .AddItem("gra")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<fgcolor FFFFFF><gra 000000;1;1>to do</fgcolor>"
	End With
	.EndUpdate()
End With

' ToolTip event - Fired when the control prepares the object's tooltip.
Private Sub AxG2antt1_ToolTip(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ToolTipEvent) Handles AxG2antt1.ToolTip
	With AxG2antt1
		Debug.Print( "ToolTip" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
		Debug.Print( e.visible )
		Debug.Print( e.x )
		Debug.Print( e.y )
		Debug.Print( e.cX )
		Debug.Print( e.cY )
		e.x = .FormatABC("value + 8",e.x)
		e.y = .FormatABC("value - 8",e.y)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 64
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
		.LevelCount = 2
	End With
	With .Items
		.AddBar(.AddItem("Tasks A"),"Task",#1/2/2001#,#1/4/2001#)
		.AddBar(.AddItem("Tasks B"),"Task",#1/3/2001#,#1/8/2001#)
	End With
	.EndUpdate()
End With

' RClick event - Fired when right mouse button is clicked
Private Sub AxG2antt1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.RClick
	With AxG2antt1
		Debug.Print( "Edit Mode: " )
		Debug.Print( .Editing )
		With CreateObject("Exontrol.ContextMenu")
			.Items.ToString = "Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)"
			Debug.Print( .Select() )
		End With
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	With .Columns.Add("Column").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditAllowContextMenu) = False
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS" & _
"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" & _
"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" & _
"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" & _
"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF" & _
"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" & _
"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" & _
"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" & _
"BZhggZgagaYRoEwShWA6NZZAMQBAICA==")
	End With
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = RGB(255,255,255)
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "Item 2"
		.CellValue(h,2) = "Item 3"
		h = .AddItem("Item 4")
		.CellValue(h,1) = "Item 5"
		.CellValue(h,2) = "Item 6"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h,size
With AxG2antt1
	size = 2
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc" & _
"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" & _
"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" & _
"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" & _
"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" & _
"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" & _
"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA==")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY" & _
"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" & _
"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" & _
"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" & _
"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" & _
"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" & _
"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA==")
		.Add(1,AxG2antt1.FormatABC("`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
		.Add(2,AxG2antt1.FormatABC("`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
	End With
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = EXG2ANTTLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -8 -4 2 4")
	End With
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,33488638)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,16843009)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = RGB(255,255,255)
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "Item 2"
		.CellValue(h,2) = "Item 3"
		h = .AddItem("Item 4")
		.CellValue(h,1) = "Item 5"
		.CellValue(h,2) = "Item 6"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub AxG2antt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ClickEvent
	With AxG2antt1
		.Items.AddItem("new")
		.Refresh()
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "`<r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1" & _
") + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxG2antt1_DblClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_DblClickEvent) Handles AxG2antt1.DblClick
	Dim c,hit,var_ItemFromPoint
	With AxG2antt1
		var_ItemFromPoint = .get_ItemFromPoint(-1,-1,c,hit)
		.FocusColumnIndex = c
		.Edit()
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.AutoEdit = False
	.ReadOnly = EXG2ANTTLib.ReadOnlyEnum.exLocked
	.AutoSearch = True
	.Columns.Add("").Visible = False
	With .Columns.Add("Contains")
		.AutoSearch = EXG2ANTTLib.AutoSearchEnum.exContains
		.Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	End With
	With .Items
		.CellValue(.AddItem(),1) = "Tom Hanks"
		.CellValue(.AddItem(),1) = "Leonardo DiCaprio"
		.CellValue(.AddItem(),1) = "Will Smith"
		.CellValue(.AddItem(),1) = "Tom Cruise"
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.DefaultItemHeight = 22
	.TreeColumnIndex = -1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = .BackColor
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverCellButton,16777216)
	With .Columns.Add("Buttons")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasButton) = True
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	End With
	With .Items
		.AddItem("Button <b>1</b>")
		.AddItem("Button <b>2</b>")
		.AddItem("Button <b>3</b>")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.AllowUndoRedo = True
		.FirstVisibleDate = #6/20/2005#
		.AllowLinkBars = True
		.LevelCount = 2
		.PaneWidth(False) = 64
		.Bars.Item("Task").Height = 16
	End With
	With .Items
		.StartBlockUndoRedo()
		.AddBar(.AddItem("Task 1"),"Task",#6/23/2005#,#6/27/2005#,"")
		.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/2/2005#,"")
		.AddLink("L1",.ItemByIndex(0),"",.ItemByIndex(1),"")
		.EndBlockUndoRedo()
		h = .ItemByIndex(1)
	End With
	With .Chart.Notes.Add("NoteD",h,#6/26/2005#,"CTRL+Z (undo), CTRL+Y (redo)")
		.PartShadow(EXG2ANTTLib.NotePartEnum.exNoteEnd) = False
		.PartToolTip(EXG2ANTTLib.NotePartEnum.exNoteEnd) = "Press CTRL+Z to undo <br> and then press CTRL+Y to redo"
		.PartTransparency(EXG2ANTTLib.NotePartEnum.exNoteEnd) = 25
		.PartVOffset(EXG2ANTTLib.NotePartEnum.exNoteEnd) = -2
		.PartBackColor(EXG2ANTTLib.NotePartEnum.exNoteEnd) = RGB(255,255,0)
	End With
	.EndUpdate()
End With

Dim u
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.AllowUndoRedo = True
		.FirstVisibleDate = #6/20/2005#
		.AllowLinkBars = True
		.LevelCount = 2
		.PaneWidth(False) = 64
		.Bars.Item("Task").Height = 16
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#6/23/2005#,#7/1/2005#,"")
		.AddBar(.AddItem("Task 2"),"Task",#6/27/2005#,#7/4/2005#,"")
		.StartBlockUndoRedo()
		.AddLink("L1",.ItemByIndex(0),"",.ItemByIndex(1),"")
		u = .StartUpdateLink("L1")
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkWidth) = 2
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkText) = "<fgcolor FF0000>CTRL+Z (undo), CTRL+Y (redo)"
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkToolTip) = "Press CTRL+Z to undo <br> and then press CTRL+Y to redo"
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos) = 0
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkColor) = 255
		.EndUpdateLink(u)
		.EndBlockUndoRedo()
	End With
	.EndUpdate()
End With

Dim h,u
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.AllowUndoRedo = True
		.FirstVisibleDate = #6/20/2005#
		.AllowLinkBars = True
		.LevelCount = 2
		.PaneWidth(False) = 64
		.Bars.Item("Task").Height = 16
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/30/2005#,"")
		h = .AddItem("Task 2")
		.StartBlockUndoRedo()
		.AddBar(h,"Task",#6/27/2005#,#7/4/2005#,"","CTRL+Z (undo), CTRL+Y (redo)")
		u = .StartUpdateBar(h,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Press CTRL+Z to undo <br> and then press CTRL+Y to redo"
		.EndUpdateBar(u)
		.EndBlockUndoRedo()
	End With
	.EndUpdate()
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxG2antt1_DblClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_DblClickEvent) Handles AxG2antt1.DblClick
	With AxG2antt1
		.Edit()
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.AutoEdit = False
	.AutoSearch = True
	With .Columns.Add("Contains")
		.AutoSearch = EXG2ANTTLib.AutoSearchEnum.exContains
		.Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	End With
	With .Items
		.AddItem("Tom Hanks")
		.AddItem("Leonardo DiCaprio")
		.AddItem("Will Smith")
		.AddItem("Tom Cruise")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(0,"KR|Korea, Republic of")
		.AddItem(1,"MO|Macao")
		.AddItem(2,"SA|Saudi Arabia")
		.AddItem(3,"EG|Egypt")
		.AddItem(4,"GB|United Kingdom")
		.AddItem(5,"GT|Guatemala")
		.AddItem(6,"SR|Suriname")
		.AddItem(7,"BM|Bermuda")
	End With
	With .Items
		.AddItem("EG")
		.AddItem("GB")
		.AddItem("BM")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns DropDownListType").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
		.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption) = "City¦Coordinates¦State"
		.AddItem(0,"JV3|Jollyville¦3026N 09746W¦Texas")
		.AddItem(1,"TMO|Altamont¦4021N 11017W¦Utah")
		.AddItem(2,"IIM|Williamston¦4241N 08417W¦Michigan")
		.AddItem(3,"IWN|Merrittstown¦3958N 07952W¦Pennsylvania")
		.AddItem(4,"HOU|Houston¦2945N 09521W¦Texas")
		.AddItem(5,"GSF|Gales Ferry¦4125N 07205W¦Connecticut")
	End With
	With .Items
		.AddItem("HOU")
		.AddItem("IIM")
		.AddItem("TMO")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
		.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
		.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth) = "224¦¦¦96"
		.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
		.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
		.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
		.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
		.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
		.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
		.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
		.ExpandAll()
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(4)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns DropDownListType").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
		.AddItem(0,"Jollyville¦JV3¦3026N 09746W¦TX")
		.AddItem(1,"Altamont¦TMO¦4021N 11017W¦UT")
		.AddItem(2,"Williamston¦IIM¦4241N 08417W¦MI")
		.AddItem(3,"Merrittstown¦IWN¦3958N 07952W¦PA")
		.AddItem(4,"Houston¦HOU¦2945N 09521W¦TX")
		.AddItem(5,"Gales Ferry¦GSF¦4125N 07205W¦CT")
	End With
	With .Items
		.InsertItem(0,"",1)
		.InsertItem(0,"",2)
		.InsertItem(0,"",4)
	End With
	.EndUpdate()
End With

Dim h1,hR1
With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
	.ColumnAutoResize = False
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.AllowLinkBars = False
		.FirstVisibleDate = #1/1/2008#
		.LevelCount = 2
		.PaneWidth(False) = 256
	End With
	.Columns.Add("Members").Width = 96
	With .Columns.Add("Start")
		.Width = 112
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
		.LevelKey = 1
	End With
	With .Columns.Add("End")
		.Width = 112
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
		.LevelKey = 1
	End With
	With .Items
		.AllowCellValueToItemBar = True
		hR1 = .AddItem("Team")
		.AddBar(hR1,"Summary",#1/2/2008#,#1/8/2008#,"")
		.AddBar(hR1,"",#1/13/2008#,#1/13/2008#,"R")
		.ItemBar(hR1,"R",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 100
		.DefineSummaryBars(hR1,"",h1,"R")
		h1 = .InsertItem(hR1,Nothing,"Member 1")
		.AddBar(h1,"Task",#1/2/2008#,#1/7/2008#)
		.DefineSummaryBars(hR1,"",h1,"")
		h1 = .InsertItem(hR1,Nothing,"Member 2")
		.AddBar(h1,"Task",#1/4/2008#,#1/9/2008#)
		.DefineSummaryBars(hR1,"",h1,"")
		h1 = .InsertItem(hR1,Nothing,"Member 3")
		.AddBar(h1,"Task",#1/5/2008#,#1/10/2008#)
		.DefineSummaryBars(hR1,"",h1,"")
		.ExpandItem(hR1) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #10/5/2020#
		.HistogramVisible = True
		.HistogramHeight = 96
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or EXG2ANTTLib.HistogramViewEnum.exHistogramRecLeafItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems
		With .Bars.Item("Task")
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exRectangularCurve
			.HistogramItems = -4
			.HistogramBorderSize = 1
		End With
		With .Bars.Copy("Task","C")
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exRectangularCurve
			.HistogramItems = -4
			.HistogramColor = RGB(255,0,0)
			.HistogramBorderSize = 2
		End With
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Project A")
		.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#10/7/2020#,#10/14/2020#)
		.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#10/10/2020#,#10/17/2020#)
		.ExpandItem(h) = True
		h = .AddItem("Project B")
		.AddBar(.InsertItem(h,Nothing,"Item 1"),"C",#10/13/2020#,#10/20/2020#)
		.AddBar(.InsertItem(h,Nothing,"Item 2"),"C",#10/15/2020#,#10/23/2020#)
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub AxG2antt1_BarResize(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent) Handles AxG2antt1.BarResize
	With AxG2antt1
		With .Items
			.ItemBar(e.item,e.key,EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = .ItemBar(e.item,e.key,EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent)
			.ItemBar(e.item,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 1
		End With
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Chart
		.FirstVisibleDate = #10/5/2020#
		.PaneWidth(False) = 128
		.LevelCount = 2
		.HistogramHeight = 96
		.HistogramVisible = True
		With .Bars.Add("Task%Progress")
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exRectangularCurve
			.HistogramItems = -4
			.HistogramBorderSize = 1
			.HistogramBorderColor = .Color
			.Shortcut = "P"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
		End With
		With .Bars.Copy("Task","C")
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exRectangularCurve
			.HistogramColor = RGB(255,0,0)
			.HistogramBorderSize = 2
		End With
	End With
	.Columns.Add("Tasks").FormatColumn = "`Task ` + (1 index ``)"
	With .Items
		h = .AddItem()
		.AddBar(h,"P",#10/7/2020#,#10/14/2020#,"P")
		.ItemBar(h,"P",EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.5
		.AddBar(h,"C",#10/7/2020#,#10/14/2020#,"C")
		.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 100
		.GroupBars(h,"P",True,h,"C",True)
		.GroupBars(h,"P",False,h,"C",False)
		h = .AddItem()
		.AddBar(h,"P",#10/10/2020#,#10/17/2020#,"P")
		.ItemBar(h,"P",EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.75
		.AddBar(h,"C",#10/10/2020#,#10/17/2020#,"C")
		.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 100
		.GroupBars(h,"P",True,h,"C",True)
		.GroupBars(h,"P",False,h,"C",False)
		h = .AddItem()
		.AddBar(h,"P",#10/13/2020#,#10/20/2020#,"P")
		.ItemBar(h,"P",EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.25
		.AddBar(h,"C",#10/13/2020#,#10/20/2020#,"C")
		.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 100
		.GroupBars(h,"P",True,h,"C",True)
		.GroupBars(h,"P",False,h,"C",False)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarTop
	.HeaderHeight = 24
	.FilterBarHeight = .HeaderHeight
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exPattern
		.Filter = "B*"
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 48
		.AllowSizing = False
		.SortType = EXG2ANTTLib.SortTypeEnum.SortNumeric
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	End With
	With .Items
		.AddItem("A.1")
		.AddItem("A.2")
		.AddItem("B.1")
		.AddItem("B.2")
		.AddItem("B.3")
		.AddItem("C")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 96
		With .Bars.Item("Deadline")
			.StartColor = RGB(0,128,0)
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconDown3
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task"),"Deadline",#1/2/2001#,#1/2/2001#)
	End With
	.EndUpdate()
End With

' OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Private Sub AxG2antt1_OLEDragDrop(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OLEDragDropEvent) Handles AxG2antt1.OLEDragDrop
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Dim c,hit,i
	With AxG2antt1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Sub

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxG2antt1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OLEStartDragEvent) Handles AxG2antt1.OLEStartDrag
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With AxG2antt1
		e.allowedEffects = 1
	End With
End Sub

Dim h
With AxG2antt1
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG" & _
"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA==")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exListOLEDropPosition,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exChartOLEDropPosition,1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDragDropBefore,0)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDragDropAfter,16777215)
	.OLEDropMode = EXG2ANTTLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = EXG2ANTTLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With

' OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Private Sub AxG2antt1_OLEDragDrop(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OLEDragDropEvent) Handles AxG2antt1.OLEDragDrop
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Dim c,hit,i
	With AxG2antt1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Sub

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxG2antt1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OLEStartDragEvent) Handles AxG2antt1.OLEStartDrag
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With AxG2antt1
		e.allowedEffects = 1
	End With
End Sub

Dim h
With AxG2antt1
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDragDropBefore,0)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDragDropAfter,16777215)
	.OLEDropMode = EXG2ANTTLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = EXG2ANTTLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With

' OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Private Sub AxG2antt1_OLEDragDrop(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OLEDragDropEvent) Handles AxG2antt1.OLEDragDrop
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Dim c,hit,i
	With AxG2antt1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Sub

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxG2antt1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OLEStartDragEvent) Handles AxG2antt1.OLEStartDrag
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With AxG2antt1
		e.allowedEffects = 1
	End With
End Sub

Dim h
With AxG2antt1
	.OLEDropMode = EXG2ANTTLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = EXG2ANTTLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
	With AxG2antt1
		With .Items
			Debug.Print( .NextVisibleItem(.FocusItem) )
		End With
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.AutoDrag = EXG2ANTTLib.AutoDragEnum.exAutoDragPositionAny
	.Columns.Add("Column")
	With .Items
		.InsertItem(.AddItem("Item 1"),Nothing,"Child 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.InsertItem(.AddItem("Item 4"),Nothing,"Child 4")
		.AddItem("Item 5")
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.DefaultItemHeight = 22
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesSolid
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" & _
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" & _
"FqXFSLVxNBKAQEBA=")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABTcIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRiBMIxAKIZhzEiJYgGIZxYh8MQER5IEbyBDsBw5AaZZojGRJG" & _
"igNIqSxLUhTRKUdQrG4AKQnGhpDgmJYnU5EcrSUKQcw/JaiKYpGZYXpqO5OTzUIyVHDdKgFGKNKwjKiKKp6FofDJcADUcKAYBKFoaLjgS5bXhSGpnV5bFoWdLTVwhBKA" & _
"QEBA=")
		.Add(1,"CP:2 1 1 -1 -1")
		.Add(3,"CP:4 1 1 -1 -1")
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor = &H3000000
		.ChartBackColor = .BackColor
	End With
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.Bars.Item("Task").Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeSolidDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternSolid
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesBehind Or EXG2ANTTLib.GridLinesStyleEnum.exGridLinesSolid
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,Nothing,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		hChild = .InsertItem(h,Nothing,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild,0) = 1
		hChild = .InsertItem(h,Nothing,"Task 4")
		.AddBar(hChild,"Task",#8/5/2017#,#8/14/2017#)
		hChild = .InsertItem(h,Nothing,"Task 5")
		.AddBar(hChild,"Task",#8/6/2017#,#8/16/2017#)
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		h = .AddItem("ItemBackColor")
		.AddBar(h,"Progress",#8/4/2017#,#8/14/2017#)
		.ItemBackColor(h) = &H18080ff
		AxG2antt1.Chart.ItemBackColor(h) = &H18080ff
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Default")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSplitBar,12500670)
	.BackColorLevelHeader = .BackColor
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 64
		.OverviewHeight = 48
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewSplitter Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.FirstVisibleDate = #1/1/2020#
		.Bars.Copy("Task","TaskO").Color = RGB(255,0,0)
	End With
	With .Items
		.AddItem("")
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"Task",#12/2/2020#,#12/12/2020#,"K2")
		h = .AddItem("")
		.AddBar(h,"TaskO",#1/2/2020#,#1/12/2020#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarOverviewColor) = -1
		.AddBar(h,"TaskO",#12/2/2020#,#12/12/2020#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarOverviewColor) = -1
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"Task",#12/2/2020#,#12/12/2020#,"K2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Default")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSplitBar,12500670)
	.BackColorLevelHeader = .BackColor
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 64
		.OverviewHeight = 48
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewHideBars Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowOnlyVisible
		.FirstVisibleDate = #1/1/2020#
		With .Bars.Copy("Task","TaskO")
			.OverviewColor = -1
			.Color = RGB(255,0,0)
		End With
	End With
	With .Items
		.AddItem("")
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"Task",#12/2/2020#,#12/12/2020#,"K2")
		h = .AddItem("")
		.AddBar(h,"TaskO",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"TaskO",#12/2/2020#,#12/12/2020#,"K2")
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"Task",#12/2/2020#,#12/12/2020#,"K2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Default")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSplitBar,12500670)
	.BackColorLevelHeader = .BackColor
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 64
		.OverviewHeight = 48
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewSplitter Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.FirstVisibleDate = #1/1/2020#
		With .Bars.Copy("Task","TaskO")
			.OverviewColor = -1
			.Color = RGB(255,0,0)
		End With
	End With
	With .Items
		.AddItem("")
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"Task",#12/2/2020#,#12/12/2020#,"K2")
		h = .AddItem("")
		.AddBar(h,"TaskO",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"TaskO",#12/2/2020#,#12/12/2020#,"K2")
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2020#,#1/12/2020#,"K1")
		.AddBar(h,"Task",#12/2/2020#,#12/12/2020#,"K2")
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#1/2/2001#,#1/9/2001#)
	End With
End Sub

' FilterChange event - Occurs when the filter was changed.
Private Sub AxG2antt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChange
	With AxG2antt1
		.Indent = AxG2antt1.FormatABC("value > 0 ? 18 : 0",.Items.MatchItemCount)
	End With
End Sub

Dim h,h2
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 18
	.FilterInclude = EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 164
	End With
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
			.FilterList = EXG2ANTTLib.FilterListEnum.exShowCheckBox
			.Filter = "C1"
		End With
		With .Add("Pos")
			.FormatColumn = "1 rindex ``"
			.Position = 0
			.AllowSizing = False
			.AllowDragging = False
		End With
	End With
	With .Items
		h = .AddItem("R1")
		h2 = .InsertItem(h,Nothing,"S")
		.InsertItem(h2,Nothing,"C1")
		.InsertItem(h2,Nothing,"C2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
		.Label(EXG2ANTTLib.UnitEnum.exYear) = "year"
		.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
		.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
		.Label(EXG2ANTTLib.UnitEnum.exMonth) = "month"
		.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
		.Label(EXG2ANTTLib.UnitEnum.exWeek) = "week"
		.Label(EXG2ANTTLib.UnitEnum.exDay) = "day"
		.Label(EXG2ANTTLib.UnitEnum.exHour) = "hour"
		.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
		.ShowNonworkingDates = False
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.UnitWidth = 32
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1")
		.AddBar(.AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1")
		.AddBar(.AddItem(""),"",#1/8/2001#,#1/8/2001#,"Info","Click the <b>middle</b> mouse button and start dragging")
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub AxG2antt1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddColumnEvent) Handles AxG2antt1.AddColumn
	' Column.Def(52) = 4
	' Column.Def(53) = 4
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.PaneWidth(True) = 256
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	With .Columns
		.Add("Column")
		.Add("C1").HTMLCaption = "<b>C<off 4>1</b><br>left"
		.Add("C2").HTMLCaption = "<c><b>C<off 4>2</b><br><c>center"
		.Add("C3").HTMLCaption = "<r><b>C<off 4>3</b><br><r>right"
	End With
	.EndUpdate()
End With

With AxG2antt1
	With .Chart
		.PaneWidth(False) = 0
		.UnitWidth = 15
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2009#
		.MarkTimeZone("Top",#1/1/2010#,#1/5/2010#,16711680,"1;;<fgcolor=FFFFFF>Top;1")
		.MarkTimeZone("Partial",#1/8/2010#,#1/12/2010#,16711680,"50;;<fgcolor=FFFFFF>Partial;1")
		.MarkTimeZone("Default",#1/15/2010#,#1/19/2010#,16711680,";;<fgcolor=FFFFFF>Default;1")
	End With
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.LevelCount = 2
	.HeaderHeight = 18
	.HeaderSingleLine = False
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.Columns.Add("This is just a column that should break the header.").Width = 32
	.Columns.Add("This is just another column that should break the header.")
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	Dim format,v1,v2,vMax,vMin
	With AxG2antt1
		With .Chart
			v1 = .HistogramValueFromPoint(-1,-1)
			v2 = .HistogramValue(.DateFromPoint(-1,-1))
			vMin = .HistogramValue("min")
			vMax = .HistogramValue("max")
		End With
		format = .FormatABC("`<b>ValueFromPoint</b>: ` + A + `<br>ValueFromDate: ` + B",v1,v2)
		format = .FormatABC("A  + `<br>Min: ` + B + `<br>Max: ` + C",format,vMin,vMax)
		.ShowToolTip(format,Nothing,Nothing,"16","16")
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
		.PaneWidth(False) = 40
		.FirstVisibleDate = #6/9/2005#
		.HistogramVisible = True
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramGroupCumulative Or EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.HistogramHeight = 128
		With .Bars.Item("Task")
			.HistogramPattern = .Pattern
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
			.HistogramItems = -6
			.HistogramRulerLinesColor = RGB(0,0,1)
			.HistogramBorderSize = 1
			.HistogramBorderColor = RGB(0,0,1)
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exChangeColor
			.HistogramCumulativeShowLegend = -1
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task"),"Task",#6/10/2005#,#6/14/2005#,"")
		.AddBar(.AddItem("Task"),"Task",#6/11/2005#,#6/15/2005#,"")
		.AddBar(.AddItem("Task"),"Task",#6/12/2005#,#6/16/2005#,"")
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	Dim format,v1,v2,vMax,vMin
	With AxG2antt1
		With .Chart
			v1 = .HistogramValueFromPoint(-1,-1)
			v2 = .HistogramValue(.DateFromPoint(-1,-1))
			vMin = .HistogramValue("min")
			vMax = .HistogramValue("max")
		End With
		format = .FormatABC("`<b>ValueFromPoint</b>: ` + A + `<br>ValueFromDate: ` + B",v1,v2)
		format = .FormatABC("A  + `<br>Min: ` + B + `<br>Max: ` + C",format,vMin,vMax)
		.ShowToolTip(format,Nothing,Nothing,"16","16")
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.LevelCount = 2
		.PaneWidth(False) = 40
		.FirstVisibleDate = #6/9/2005#
		.HistogramVisible = True
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.HistogramHeight = 128
		With .Bars.Item("Task")
			.HistogramPattern = .Pattern
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
			.HistogramItems = -6
			.HistogramRulerLinesColor = RGB(0,0,1)
			.HistogramBorderSize = 1
			.HistogramBorderColor = RGB(0,0,1)
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task"),"Task",#6/10/2005#,#6/14/2005#,"")
		.AddBar(.AddItem("Task"),"Task",#6/11/2005#,#6/15/2005#,"")
		.AddBar(.AddItem("Task"),"Task",#6/12/2005#,#6/16/2005#,"")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.PaneWidth(False) = 0
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
		With .DefaultInsideZoomFormat
			.InsideLabel = "<%hh%>"
			.InsideUnit = EXG2ANTTLib.UnitEnum.exHour
			.InsideCount = 8
			.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		End With
		.AllowInsideZoom = True
		With .InsideZooms
			.Add(#1/4/2008#)
		End With
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
		.ShowNonworkingDates = False
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Chart
		.FirstVisibleDate = #10/5/2020#
		.PaneWidth(False) = 128
		.LevelCount = 2
		.HistogramHeight = 96
		.HistogramVisible = True
		.AllowInsideZoom = True
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		With .InsideZooms.Add(#10/7/2020#)
			.Width = 196
		End With
		.DefaultInsideZoomFormat.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesSolid
		With .Bars.Item("Task")
			.HistogramPattern = .Pattern
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = "(hour(value) > 5 and hour(value) < 18) ? 2 : 0"
		End With
		.HistogramUnitScale = EXG2ANTTLib.UnitEnum.exHour
	End With
	.Columns.Add("Tasks").FormatColumn = "`Task ` + (1 index ``)"
	With .Items
		.AddBar(.AddItem(""),"Task",#10/7/2020#,#10/12/2020#)
		.AddBar(.AddItem(""),"Task",#10/8/2020#,#10/13/2020#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Chart
		.FirstVisibleDate = #10/5/2020#
		.PaneWidth(False) = 128
		.LevelCount = 2
		.HistogramHeight = 96
		.HistogramVisible = True
		With .Bars.Add("A")
			.Color = RGB(0,0,255)
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternSolid
			.HistogramItems = -6
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("A","B")
			.Color = RGB(0,255,0)
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramGroupCumulative Or EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.HistogramZOrder = "A,B"
	End With
	.Columns.Add("Tasks").FormatColumn = "`Task ` + (1 index ``)"
	With .Items
		.AddBar(.AddItem(""),"A",#10/7/2020#,#10/12/2020#)
		.AddBar(.AddItem(""),"A",#10/8/2020#,#10/13/2020#)
		.AddBar(.AddItem(""),"B",#10/9/2020#,#10/14/2020#)
		.AddBar(.AddItem(""),"B",#10/10/2020#,#10/15/2020#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Chart
		.FirstVisibleDate = #10/5/2020#
		.PaneWidth(False) = 128
		.LevelCount = 2
		.HistogramHeight = 96
		.HistogramVisible = True
		With .Bars.Add("A")
			.Color = RGB(0,0,255)
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternSolid
			.HistogramItems = -6
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("A","B")
			.Color = RGB(0,255,0)
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramGroupCumulative Or EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
	End With
	.Columns.Add("Tasks").FormatColumn = "`Task ` + (1 index ``)"
	With .Items
		.AddBar(.AddItem(""),"A",#10/7/2020#,#10/12/2020#)
		.AddBar(.AddItem(""),"A",#10/8/2020#,#10/13/2020#)
		.AddBar(.AddItem(""),"B",#10/9/2020#,#10/14/2020#)
		.AddBar(.AddItem(""),"B",#10/10/2020#,#10/15/2020#)
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX" & _
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==")
	With .Columns.Add("Default")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "((1 rindex ``) contains `.`) = 0"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1")
		.BackColor = &H1e0e0e0
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"<img>1</img> Task (left)")
		hChild = .InsertItem(h,Nothing,"<c><img>2</img> Task (center)")
		hChild = .InsertItem(h,Nothing,"<r>Task (right) <img>3</img>")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.Columns.Add("Type").Width = 32
	.Columns.Add("Editor")
	With .Items
		h = .AddItem("Integer")
		.CellValue(h,1) = "12"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exInteger
		End With
		h = .AddItem("Integer (mask, group)")
		.CellValue(h,1) = "10002"
		.FormatCell(h,1) = "value format `0||`"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0,invalid=empty,warning=invalid character"
		End With
		h = .AddItem("Integer (mask, no group)")
		.CellValue(h,1) = "10002"
		.FormatCell(h,1) = "value format `0|0|`"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
		End With
		h = .AddItem("Float")
		.CellValue(h,1) = "+12.34E+2"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exFloat
		End With
		h = .AddItem("Float (no signs)")
		.CellValue(h,1) = "12.34E-2"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exDisableSigns Or EXG2ANTTLib.NumericEnum.exFloat
		End With
		h = .AddItem("Float-Integer")
		.CellValue(h,1) = "+12.34"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exFloatInteger
		End With
		h = .AddItem("Float-Integer (no signs)")
		.CellValue(h,1) = "12.34"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exDisableSigns Or EXG2ANTTLib.NumericEnum.exFloatInteger
		End With
		h = .AddItem("Float (mask,group)")
		.CellValue(h,1) = "10002.34"
		.FormatCell(h,1) = "value format `2`"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,invalid=empty,warning=invalid character"
		End With
		h = .AddItem("Float (mask, no group)")
		.CellValue(h,1) = "10002.34"
		.FormatCell(h,1) = "value format `2|0|`"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,grouping=,invalid=empty,warning=invalid character"
		End With
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("HOffset")
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	With .Chart
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
		.FirstVisibleDate = #12/16/2000#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Task")
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
			.Color = RGB(164,164,164)
			.StartColor = RGB(240,240,240)
			.EndColor = .StartColor
			.Height = 15
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "label"
		End With
	End With
	With .Items
		h = .AddItem("right")
		.AddBar(h,"Task",#12/22/2000#,#12/27/2000#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 2
		h = .AddItem("right - 4")
		.AddBar(h,"Task",#12/22/2000#,#12/27/2000#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 2
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaptionHOffset) = -4
		h = .AddItem("left")
		.AddBar(h,"Task",#12/22/2000#,#12/27/2000#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 0
		h = .AddItem("left + 4")
		.AddBar(h,"Task",#12/22/2000#,#12/27/2000#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 0
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaptionHOffset) = 4
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Align")
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	With .Chart
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
		.FirstVisibleDate = #12/23/2000#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Task")
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
			.Color = RGB(164,164,164)
			.StartColor = RGB(240,240,240)
			.EndColor = .StartColor
			.Height = 15
		End With
	End With
	With .Items
		h = .AddItem("default")
		.AddBar(h,"Task",#12/22/2000#,#12/27/2000#,"","label")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 1
		h = .AddItem("default + 32")
		.AddBar(h,"Task",#12/22/2000#,#12/27/2000#,"","label")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 33
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	Dim c,hit,i
	With AxG2antt1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( i )
		Debug.Print( .Items.ItemData(i) )
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.Columns.Add("Default")
	With .Items
		.ItemData(.AddItem("method 1")) = "your extra data of method 1"
		.InsertItem(0,"your extra data of method 2","method 2")
	End With
	With .Items
		.DefaultItem = .AddItem("method 3")
		.ItemData(0) = "your extra data of method 3"
	End With
	.EndUpdate()
End With

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxG2antt1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeExpandItemEvent) Handles AxG2antt1.BeforeExpandItem
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,h1
With AxG2antt1
	.BeginUpdate()
	.Indent = 16
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exSolidLine
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	.ScrollBySingleLine = True
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.Columns.Add("Tasks")
	With .Columns.Add("Pos")
		.Visible = False
		.FormatColumn = "`<r><bgcolor 000000><fgcolor FFFFFF> ` + 1 apos `` + ` </fgcolor></bgcolor>`"
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
	End With
	With .Chart
		.ColumnsFormatLevel = ",|,1:64"
		.FirstVisibleDate = #9/20/2006#
		.ShowCollapsedBars = True
		.LevelCount = 2
		.PaneWidth(False) = 128
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.Color = RGB(0,0,0)
			.StartColor = RGB(196,196,196)
			.EndColor = RGB(196,196,196)
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
		End With
	End With
	With .Items
		h = .AddItem("Project 1")
		h1 = .InsertItem(h,Nothing,"Resources")
		.AddBar(h1,"Task",#9/21/2006#,#9/25/2006#,"A")
		.AddBar(h1,"Task",#9/24/2006#,#9/28/2006#,"B")
		.AddBar(h1,"Task",#9/27/2006#,#9/29/2006#,"C")
		h = .AddItem("Project 2")
		h1 = .InsertItem(h,Nothing,"Resources")
		.AddBar(h1,"Task",#9/21/2006#,#9/25/2006#,"A")
		.AddBar(h1,"Task",#9/24/2006#,#9/28/2006#,"B")
		.AddBar(h1,"Task",#9/27/2006#,#9/29/2006#,"C")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesVSolid
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	.Columns.Add("Type")
	.BackColorAlternate = RGB(240,240,240)
	With .Chart
		.LevelCount = 2
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.AllowLinkBars = False
		.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exHour
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		.Bars.Copy("Task","Stack").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
		.Bars.Copy("Task","AStack").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
		.Bars.Copy("Task","Cascade").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
	End With
	With .Items
		h = .AddItem("Stack")
		.AddBar(h,"Stack",#1/2/2001#,#1/4/2001#,"A1")
		.AddBar(h,"Stack",#1/3/2001#,#1/5/2001#,"A2")
		.AddBar(h,"Stack",#1/4/2001#,#1/7/2001#,"A3")
		.AddBar(h,"Stack",#1/2/2001#,#1/7/2001#,"A4")
		.AddBar(h,"Stack",#1/8/2001#,#1/12/2001#,"A5")
		.AddItem()
		h = .AddItem("Stack-AutoArrange")
		.AddBar(h,"AStack",#1/2/2001#,#1/4/2001#,"A1")
		.AddBar(h,"AStack",#1/3/2001#,#1/5/2001#,"A2")
		.AddBar(h,"AStack",#1/4/2001#,#1/7/2001#,"A3")
		.AddBar(h,"AStack",#1/2/2001#,#1/7/2001#,"A4")
		.AddBar(h,"AStack",#1/8/2001#,#1/12/2001#,"A5")
		.AddItem()
		h = .AddItem("Cascade")
		.AddBar(h,"Cascade",#1/2/2001#,#1/4/2001#,"A1")
		.AddBar(h,"Cascade",#1/3/2001#,#1/5/2001#,"A2")
		.AddBar(h,"Cascade",#1/4/2001#,#1/7/2001#,"A3")
		.AddBar(h,"Cascade",#1/2/2001#,#1/7/2001#,"A4")
		.AddBar(h,"Cascade",#1/8/2001#,#1/12/2001#,"A5")
		.AddItem()
		.ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%9%>"
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.set_HTMLPicture("exclude","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAEAcRdrdcUQhQDOZCJJUBEjbbhJ7giIJOBILJziJvl4BeKibhDiIZOhFLB0KZvMx0O5hORlAB3owuNJuNZzMZhOBlFxvORnT" & _
"buHgaiIeKBMKhFf9fDIcEoPCAVEAlGI4HhBBYMCARCQVGg4IhVMCAWC2XY1Q7WJ8RBB0KROKYAYDBbzicjndD6fA/VsRHRJIhBkRbMYIGwGAQjA2fRYOEBoYjBFBx1AT" & _
"CgCGQ8M7OTjSaJMDRDKIwYu5DrIMBgSAADKJTqhBhyRApAA3FAucZPPilokRJJFJxEVxCMCCgIA==")
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarExclude,"<img>exclude</img>")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.Chart.DrawGridLines = AxG2antt1.DrawGridLines
	.Chart.GridLineStyle = AxG2antt1.GridLineStyle
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,Nothing,"Task 2")
		.CellState(hChild,0) = 1
		hChild = .InsertItem(h,Nothing,"Task 3")
		.CellState(hChild,0) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 96
		.FirstVisibleDate = #1/1/2011#
		With .Bars.Item("Task")
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "<%=%C0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 16
		End With
	End With
	.Columns.Add("Task")
	With .Columns.Add("Show")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 57
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#1/3/2011#,#1/7/2011#)
		.ItemBar(.FirstVisibleItem,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowExtraCaption) = False
		.AddBar(.AddItem("Task 2"),"Task",#1/4/2011#,#1/8/2011#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 96
		.FirstVisibleDate = #1/1/2011#
		With .Bars.Item("Task")
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%C0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
	End With
	.Columns.Add("Task")
	With .Columns.Add("Show")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 56
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#1/3/2011#,#1/7/2011#)
		.ItemBar(.FirstVisibleItem,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowCaption) = False
		.AddBar(.AddItem("Task 2"),"Task",#1/4/2011#,#1/8/2011#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("Check")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.SortType = EXG2ANTTLib.SortTypeEnum.exSortByState
	End With
	With .Items
		.AddItem()
		.CellState(.AddItem(),0) = 1
		.CellState(.AddItem(),0) = 1
		.AddItem()
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Image")
		.SortType = EXG2ANTTLib.SortTypeEnum.exSortByImage
	End With
	With .Items
		.CellImage(.AddItem(),0) = 3
		.AddItem()
		.CellImage(.AddItem(),0) = 1
		.CellImage(.AddItem(),0) = 2
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("Value")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.FormatColumn = "`<fgcolor=808080><off 4><font ;6> ` + (1 index ``)  + ` </font></off></fgcolor>` + value"
		.SortType = EXG2ANTTLib.SortTypeEnum.exSortByValue Or EXG2ANTTLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.AddItem("1")
		.AddItem("10")
		.AddItem("2")
		.AddItem("20")
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.SortType = EXG2ANTTLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.AddItem(True)
		.AddItem(False)
		.AddItem(False)
		.AddItem(True)
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns
		.Add("Tasks")
		.Add("Start").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
		.Add("End").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 543
		With .Add("Days")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
			.FormatColumn = "value ? value : ``"
		End With
		With .Add("Type")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 0
			.Visible = False
		End With
	End With
	With .ConditionalFormats.Add("%4 = `Milestone`")
		.Bold = True
		.Italic = True
		.ApplyTo = EXG2ANTTLib.FormatApplyToEnum.exFormatToItems
	End With
	With .Chart
		.FirstVisibleDate = #9/20/2010#
		.LevelCount = 2
		.PaneWidth(False) = 256
		With .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		End With
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("M1"),"Milestone",#9/24/2010#,#9/24/2010#)
		.AddBar(.AddItem("T1"),"Task",#9/24/2010#,#9/28/2010#)
		.AddBar(.AddItem("T2"),"Task",#9/27/2010#,#9/28/2010#)
		.AddBar(.AddItem("M3"),"Milestone",#9/28/2010#,#9/28/2010#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns
		.Add("Tasks")
		.Add("Start").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
		.Add("End").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 543
		With .Add("Days")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
			.FormatColumn = "value ? value : ``"
		End With
	End With
	With .ConditionalFormats.Add("%3 = 0")
		.Bold = True
		.Italic = True
		.ApplyTo = EXG2ANTTLib.FormatApplyToEnum.exFormatToItems
	End With
	With .Chart
		.FirstVisibleDate = #9/20/2010#
		.LevelCount = 2
		.PaneWidth(False) = 256
		With .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		End With
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("M1"),"Milestone",#9/24/2010#,#9/24/2010#)
		.AddBar(.AddItem("T1"),"Task",#9/24/2010#,#9/28/2010#)
		.AddBar(.AddItem("T2"),"Task",#9/27/2010#,#9/28/2010#)
		.AddBar(.AddItem("M3"),"Milestone",#9/28/2010#,#9/28/2010#)
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	.DefaultItemHeight = 24
	With .Chart.Bars.Add("E1")
		.Color = RGB(0,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = RGB(255,255,0)
		.Pattern = EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or EXG2ANTTLib.PatternEnum.exPatternBox
		.Height = 20
	End With
	With .Chart.Bars.Add("E2")
		.Color = RGB(0,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = RGB(255,255,0)
		.Pattern = EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or EXG2ANTTLib.PatternEnum.exPatternBox
		.Height = 20
		.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "[frame=RGB(255,0,0),framethick]"
	End With
	With .Items
		.AddItem()
		h = .AddItem("no border")
		.AddBar(h,"E1",#1/2/2001#,#1/8/2001#,"")
		h = .AddItem("w/h boder")
		.AddBar(h,"E2",#1/2/2001#,#1/8/2001#,"")
		.AddItem()
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	.DefaultItemHeight = 24
	With .Chart.Bars.Add("E2")
		.Color = RGB(0,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = RGB(255,255,0)
		.Pattern = EXG2ANTTLib.PatternEnum.exPatternGradientVBox Or EXG2ANTTLib.PatternEnum.exPatternBox
		.Height = 20
	End With
	With .Items
		.AddItem()
		h = .AddItem("no border")
		.AddBar(h,"E2",#1/2/2001#,#1/8/2001#,"")
		h = .AddItem("w/h boder")
		.AddBar(h,"E2",#1/2/2001#,#1/8/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "[frame=RGB(255,0,0),framethick]"
		.AddItem()
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(False) = 128
	With .Columns
		.Add("Items")
		With .Add("Pos")
			.FormatColumn = "len(%C0) ? 1 pos `` : ``"
			.Position = 0
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("")
		.AddItem("Item B")
		.AddItem("")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABLEIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRiAUbQSKEPxLEiPmqSHIEWwtDiBZgieTpNhAMg1CTNU4RAKoY" & _
"RzBKeZ7kGZIVjKMofURRDpxBBMAkB")
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DefaultItemHeight = 24
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 2
		.PaneWidth(False) = 196
		.SelBackColor = AxG2antt1.SelBackColor
	End With
	With .Columns
		With .Add("Default")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.PartialCheck = True
		End With
		With .Add("Position")
			.FormatColumn = "1 + ((1 rpos ``) contains `.`)"
			.Visible = False
		End With
	End With
	With .ConditionalFormats.Add("%C1")
		.BackColor = &H1000000
		.ChartBackColor = .BackColor
	End With
	With .Items
		h = .AddItem("Group 1")
		.AddBar(.InsertItem(h,Nothing,"Child 1"),"Task",#1/3/2001#,#1/13/2001#)
		.AddBar(.InsertItem(h,Nothing,"Child 2"),"Task",#1/4/2001#,#1/14/2001#)
		.ExpandItem(h) = True
		h = .AddItem("Group 2")
		.AddBar(.InsertItem(h,Nothing,"Child 1"),"Task",#1/3/2001#,#1/13/2001#)
		.AddBar(.InsertItem(h,Nothing,"Child 2"),"Task",#1/4/2001#,#1/14/2001#)
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 22
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 2
		.PaneWidth(False) = 0
	End With
	.Columns.Add("Frames")
	With .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",#1/2/2001#,#1/12/2001#,"bar A")
		.ItemBar(h,"bar A",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 1
		.AddBar(h,"Task",#1/14/2001#,#1/24/2001#,"bar B")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 96
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").Height = -1
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/5/2001#)
		h = .AddItem("Task A")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 96
		.UnitWidth = 18
		.LevelCount = 2
		.MarkTimeZone("zone1",#1/8/2001#,#1/9/2001#,0)
		.MarkTimeZone("zone2",#1/2/2001#,#1/4/2001#,0,"50")
	End With
	With .Items
		.AddItem("")
		h = .AddItem("Task(I)")
		.AddBar(h,"Task",#1/5/2001#,#1/12/2001#,"I")
		.AddItem("")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 96
		.UnitWidth = 18
		.LevelCount = 2
		.AllowInsideZoom = True
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .DefaultInsideZoomFormat
			.ForeColor = RGB(255,255,255)
			.BackColorChart = RGB(0,0,1)
			.BackColor = RGB(0,0,1)
		End With
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 18
			.Add(#1/8/2001#).AllowInsideFormat = False
		End With
	End With
	With .Items
		.AddItem("")
		h = .AddItem("Task(I)")
		.AddBar(h,"Task",#1/5/2001#,#1/12/2001#,"I")
		.AddItem("")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 96
		.UnitWidth = 18
		.LevelCount = 2
	End With
	With .Items
		.AddItem("")
		h = .AddItem("Task(D)")
		.AddBar(h,"Task",#1/5/2001#,#1/12/2001#,"D")
		.AddItem("")
	End With
	With .Chart.Notes
		With .Add("NoteD",h,#1/8/2001#,"<b><%dd%></b><br><%m%><br><%yy%>")
			.PartFixedWidth(EXG2ANTTLib.NotePartEnum.exNoteEnd) = 18
			.PartShadow(EXG2ANTTLib.NotePartEnum.exNoteEnd) = False
		End With
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 96
		.UnitWidth = 18
		.LevelCount = 2
	End With
	With .Items
		.AddItem("")
		h = .AddItem("Task(T)")
		.AddBar(h,"Task",#1/5/2001#,#1/12/2001#,"T")
		.AddItem("")
	End With
	With .Chart.Notes
		With .Add("NoteTS",h,"T","")
			.ShowLink = EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
			.PartText(EXG2ANTTLib.NotePartEnum.exNoteStart) = "<%d%>"
			.PartHOffset(EXG2ANTTLib.NotePartEnum.exNoteStart) = 9
			.PartFixedWidth(EXG2ANTTLib.NotePartEnum.exNoteStart) = 18
		End With
		With .Add("NoteTE",h,"T","")
			.RelativePosition = "E-1"
			.ShowLink = EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
			.PartText(EXG2ANTTLib.NotePartEnum.exNoteStart) = "<%d%>"
			.PartHOffset(EXG2ANTTLib.NotePartEnum.exNoteStart) = 9
			.PartFixedWidth(EXG2ANTTLib.NotePartEnum.exNoteStart) = 18
		End With
	End With
	.EndUpdate()
End With

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxG2antt1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeExpandItemEvent) Handles AxG2antt1.BeforeExpandItem
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,h1
With AxG2antt1
	.BeginUpdate()
	.Indent = 16
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exSolidLine
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #9/20/2006#
		.ShowCollapsedBars = True
		.LevelCount = 2
		.PaneWidth(False) = 128
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.Color = RGB(0,0,0)
			.StartColor = RGB(196,196,196)
			.EndColor = RGB(196,196,196)
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
		End With
	End With
	With .Items
		h = .AddItem("Project 1")
		h1 = .InsertItem(h,Nothing,"Resources")
		.AddBar(h1,"Task",#9/21/2006#,#9/25/2006#,"A")
		.AddBar(h1,"Task",#9/24/2006#,#9/28/2006#,"B")
		.AddBar(h1,"Task",#9/27/2006#,#9/29/2006#,"C")
		h = .AddItem("Project 2")
		h1 = .InsertItem(h,Nothing,"Resources")
		.AddBar(h1,"Task",#9/21/2006#,#9/25/2006#,"A")
		.AddBar(h1,"Task",#9/24/2006#,#9/28/2006#,"B")
		.AddBar(h1,"Task",#9/27/2006#,#9/29/2006#,"C")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With